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PRIMEIRA PÁGINA 


Cé está o número 5 do Clube Z-30, sensivelmente identico aos anteriores (ou tal- 
vez melhor) PERSPECTIVAS DE APERFEIÇOAMENTO JÁ EXISTEM - COMD CONCRETIZÁ-LAS? 


Neste momento temos propostas que, se forem avante, melhorarão consideravelusrt 


os nossos boletins. 
Se conseguirmos uma tiragem mínima de 500 exemplares, os boletins poderão vir a 


ser impressos como revistas, Ora, nesta altura somos 140 sócios, número muito a- 


quém do que seria necessário para issc. 


Para além desáa condicionante principal, concretizar esse projecto implicará mai 
ores despesas que não poderemos enfrentar, principalmente se o número de sócios 
se mantiver estacionário, 

Colocâmo-nos já a hipótese de pêr à venda as cerca de 360 revistas que sobrariar. 
Seria um risco que, no entanto, não pcnos de lado, Mas aí depara-se-nos outro pre 


blemai a legalização do Clube, cujo(s) processo(s) desconhecemos, 


Há ainda um outro aspecto não menos importante; Sabemos que levar a cabo todos o: 
objectivos a que nos propusemos e particularmente a realização de uma revista se 
"gralhas” (como já tem acontecido), implica a existencia de mais colaboradres ne: 


sa tarefas Mas,. «Onde estão os lucros que possam aplicar-se nesses projectos? 


Na realidade, todos estes factores es encadeian a partir de um fundamental ; on. 
EA / y , 
mero restrito de aderentes ao Clube (se pensarmos no numero de possuidores de zi- 


crocomputadores). 


Após os factos, aqui ficam os apelos; 
- DIVULSUEM, TANTO QUANTO POSSÍVEL, A EXISTENCIA DO NOSSO CLUBE 


- CONTACTEM-NOS (ESCPEVAM, TELEFONEM, VENHAM CÁ) EXPRIMINDO AS VOSSAS OPINICES: 
ELAS SÃO IMPRESCINDÍVEIS ÀS DECISÕES QUE DEVEREMOS IUMAR 


- SE SOUBEREM QUAIS AS CONDIÇÕES E OS PASSOS MAIS SIMPLES PARA LEGALIZAR O 
CLUBE, AGRADECEMOS NOS INFORMEM, L= BUROCRACIAS NÃO ENTENDEMOS, E POSSIVELMEN | 
TE NEM SERÁ TÃO COMPLICADO QUANTO JULGAMDS. 
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EST=UITPAS  DINSMICAS 


Temos estado a ver estruturas de dados 
estatísticos, isto é, variáveis cuja orga 
nização se mantém invariével durante o de 

pi do procrama, Varos agora analio 
sar actruturas dinamicas que cobre um 
ização muito vEsto Desde à 
iatioc d2 um de um ccm- 
até aos dir amas “da Tnteliganeis 
tficial, a Informa ítica usa c acusa das 
astruturas dinamicas: pilhas, filas, ar 
occencias e listas. Vários harpa Se - 
irresolíveis se não passassem por 
arranjos, pelo menos na fase de aná- 


“. - > «a Qu? 


do co dq 
14 
rs 


+>- bo 


(no 
O 


La 
An 

| 

Ed 
Is 
— 
q 
a 
w 


- 


S&o certamente, de entre as estruturas cdi- 
ramicas, as mais funcionais. 


Cá ni 'C=-mrocessadores, por exerplo, utili 
cam uma pílha para salvaguardar os seus re 
gi 


istos ou a posição das chamadas aos sub= 
rograzas, de modo a poderem voltar ac lu 
“ar correcto no programa principal, 

Tioa pilha defins=-se intuitívanento como um 
nte de pi E em que apenas o último 
codcuzido É visível. Podemos praça ou 
ar elementos mas con um Únt firms O 

o = acesso 
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introduzido torna=se 


“LISC”, relacio 
“Last In 
» primeiro q 


Sercpre 


o que se fala de 
" expr essão irçglesa 
Out” (íltimo a entrar 
sair). 'A estrutura píliha ada dio 
“os primeiros serão os últimos”, 
"ais rigorosaments, uma pilha pode descre- 
-7er-se como um conjunto de slezentos do 
mesmo tipo, sobre Oo qual se definem três 
operações: duas funções de acesso e um 
predicado, ou seja, uma função de teste, 
As funções de acesso serves para situ 
ou âssiosar um elemento; o predicado pa- 
ra determinar se a pilha está vazia, Cha= 
mar-jJhes-emos LUGAR, DESLOCAÇÃO e VAZIC 
ou, para utilizar a linguagem querida dos 
inforráticos PUSH, PCP e L'PTY, 
A figura 4 mostra o funcionamento cê uma 


4 4 


estrutura deste tipo, 
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Uria pilha acumula sds atravé 
push”, e retirasos com “505” 


4 o - 
do corando 
ici oii assim à ordem das informas 


FiGe s 
da 
va 


Cs caracteres, lidos à entrada da pilha, 
são retirados após terem sofrido o efei- 
to das operações de manipulação. Consta- 
ta-se que à salas a ordem dis caracteres 
foi modificada, Escolhendo cod 
mente a order segundo à A estas trê 
operações devem ser efectuadas, é Bd 
vel tratar seguencias de caracteres, O 
algoritmo da figura 5 usa esta proprieda 
de para transformar uma expressão algé- 
brica desenvolvida- por exemplo 
((x uy) + (y = z)) — nuxa equivalerte 
pós indicada, por vezes chamada notação 
polaca inversa, característica de certas 
calculadoras de bolso (a expressão passa 
a ser Xy 4 yz 8 +), 
Esta manipulação é bastarte utilizada 
nos corpiladores, Os computadores funcio- 
nam internamente de acordo com esta nota- 
ção : por exemplo x + y calcula-se assim: 
- CaIreçar x no registe A 
carregar y no registo B 
- adicionar e colocar o resultado em À 
o que corresponde directamente à notação 
S-indicada XyYte 


2Se 


jcs 


Figo 6 - Uma pilha pod 
realizar inúmeras funç” 


Tranferirexpressão 


ler car : 

) Uma delas consiste er 

enquanto for car y vazio fazer verter a expressão “ds 

y EA * À e RA 

sa car E bra”, st=") volvidas”, istc é, eso: 

ta segundo à norma ha: 

então push ai al, na expressão “pés-: 

” cadas”, pOr vezes char. 

sºNa0o 

pclaca inversão. 


se car = ')' então escreva (pop) 
senao | 
se car + '(' então escreva (car) 


ler (car) 
escrever (pop) 





/ d di : À 
Numero Acções realizadas pelo superior 
da Lirha interpretador pilha 















Co Imprimir “cozeço” — 
100€ Push 1000 
Ir à linha 1500 
1500 Imprinir “olé” 2000 
Push 1510 
Ir à linha 2000 
RS a, I=primir “olá mais uma vez” 151C 
2º 10 papop Hs ee 
Ir à lirha a seguir a p 
, (1520) ma 
152 Imorinir “olá 3” sá so r 
1536 Sua 153C 900 PRINT “COMEÇO 
Ir à linha 2000 1000 GOSU3 1500 
AT Imprizir “clá mais uma vez” 1530 1ÍClO END 
201% p=pop 1000 1500 PRINT “CL&” 


1510 -«GOSUB 2000 

1520 PRINT “OLA 2” 

1530 GCSU2 MM 

16CO RETURN 

2000 PRINT "CDÉ MAI 
UMA VEZ” 


201C RETURN 


Ir à lirha a segilr a p 


P + POP 
Ir à linha a seçuir a p 
(1C10) 
Parar a execução e voltar 
ao monitor 





Fige 6 - À memorização dos endereços de partida aquando de chamadas a sul-proçta- 
mas, efectua-se através de uma pilha, Durante a execução de um proçrama (quadro 
da direita), os endereços são empílhados e depois desempílhados quando encon. -ram 
respectivamente as instruções GOSUB e RETURN, 


A estrutura de pilha é de tal modo impor 
tante para a informática, e tão próxima 
do funcionamento físico da máquina que a 
línçuagem FORTH fez dela o seu cavalo de 
batalha, Todo o sistema 6 construído à 
volta de pílhas e manipulado através de 
expressões pôós-indicadas, que prescindem 
o uso de parentesis. 

Mzs as pílhas tem muitas outras aplíca - 
«Ses. Intervem, por exerrlo, nas chamadas 
de procedimentos. O prograza de charada 
tem o seu endereço numa pilha cor os ar- 
gumentos do sub-proçgrama chamado, À Sº- 
guir, este último “deserpilha” estas argu 
mentos antes de os utilizar, So fim da Pe 
xecução do procedimento, o certrols pas- 
sou ão endereço situado na parts superi- 
or da pilha, Ka altura em que um proceal- 
o qua chama outro, etce, Os endereços 
acurulado: à medida destas chamadas. 


o 


4 
utr o controle aos módulos de charma- 


ez, quer funcionem em crandes cormpu=- 
tadores quer em pequenas máquinas, utili- 
cam uma pilra para avaliar o conjunto das 
posiqóss válidas que possam surgir alguns 
lances ediarte durante uma partidas. 

Para representar uma pilha, utiliza-se 

um vector de elementos e um ponteiro «que 
£tiçura a parte auperior da pilha. (fige 7) 
Acrescentar um elemento implica colocá-lo 
no lugar apontado por este indicador e in 
crementá-lo; para subir um elemento, Las 
ta realizar a operação inversa, Entrstan- 
to £ necessfrio garantir que a pilha con- 
tenha pelc mencs um elemento, se nao que- 
remos apontar para fora do quadros 

Uma outra implantação possível recorre a 
listas lineares de que falaremos mais à 
frentes. 

Na figura 8 estão representadas as opera- 
ções POP, PUSi e EMSTT em Basic (a) e em 
Pascal (b) para uma pilha. 


Ponteiro da 


parte supe- i di 
rior da | 
pilha 





Fige? 


jma pilha implanta-se na ria em forma 
de um quadro e de um ponteire e indica 


topo da pilha, “Push” e “pop“fazem respes 
ivangunto umentar e diminuir. 


Fig8 - POP,pUuSd e EMPTY em Basic e Pasc. 
10 REM gestao de pilha 
20 DIM PILHA ( 100 ) 

30 DEF FNEMPTY(X) = ( PT = 0) 
40 REM push (X) 
SO IF PT = 100 THEN PRINT "PI 
LHA CHEIA":STOP 
60 PT = PT+1. 
70 PILHA(PT) = X 
280 RETURN 
SO Fis SFETSSAS! 
100 REM pop 
110 REM resultado em X 
120 IF FNEMPTY THEN PRINT "PI 
LHA VAZIA" : STOP 
130 X = PILHA(PT) 
340 Pa PT + 1 
150 RETURN fa) : 
(BASIC), 


programa rotinapilha; 
const maxpilha=100: 
var pilha : array (1...max 
pilha) of intezge: 
pt é imseger; é 


procedure erros; 
begin 
* a-definir conforme 
as aplicações =) 
end; 


function empty :boolean; 
begin 
if pt=0 then expty i=true 
else empty :=fals: 
end; º 


procedure push (x:integer); 


begin 
if pt=maxpilha then erro 
else 
begin 
pt:=pt+l; 
pilha ( pt ) :=x4 
end; 
ends 


function pop:integer; 


begin 
if empty then erro 
else 
begin 
pop:=pilha ( pt ) 
pt:e=pt-l; 
ends 
ends; 


procedure iniciopilha; 
begin 
pt:=0s 
end; 
begin (x aplicação a, 
inserir aqui *) 
o B 


end. (PASCA 


Mm 
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Land die! se 


e “Compro ou troco programas para O 
ZX81, de todos os tipos, ce designa=- 
damente soLre desenho de construção 
civil,” : 

á ALSANO COSTA 


ReStoeAntônio, AFB 1-12 
2560 'TORRES VEDRAS 





eSoDte OS cursos por correspondencia: 
GasiC - É sirplesnente um curso de 
iniciação, com um nível elementar que, 
consequentemente, não fornece uma espe 
lalização técnica (Jé está a d2cor- 
Eis 
UaCEM MÉQUINA - À apresentação e 
uturação deste curso ainda não 
feitas Logo que seja concretizada, 
ciars 


A quão O] 
no ta 1D 
(1) 
La 


Hh « 
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e"(.eo )sinto dificuldades em escolher 
qual o computador que devo adquirir(..) 
Quais os critérios de escolha? 
Conhecem bibliografia sobre o assunto? 


(0.00) falam-me que a linguagem PASCAL 
é mais apta para cálculo científico. Is- 


so é verdade? JÚLIO BUCHO 
Portalegre 


Há ne mercado eurepeu mais de 200 mo- 

delos de micrecomputaderes, Quanto a 

nós, os critérios prioritáries de esco- 

lha são; 

- Capacidade central de memória reque- 
rida (quantes K bytes?) 

- Pessibilídades de extensão de mexó- 
ria interna e de massa 

- Garantia e assistencia fernecidas per 
distribuider oficial 

Relativamente a este assunto desconis- 

cemos qualquer biblieçrafia, 


Quante à segunda questãe, a nessa resp 
pesta é absolutamente afirmativa. 
Incluímos neste número um artígo sobre 
PASCAL, que pessivelmente lhe interessa. 
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ÚVIDAS, « o SUGESTÕES, o «COMENTÁRIOS. « «OPINIÕES. o o DÚVIDAS, o o SUGESTÕES, o o COMENTAR ICS. o OPENIC 


«"Ao passar o programa “BATALHA NAVAL” 
(revista nº 1) , verífico que e centa 
der de pentes da “NOSSA ESQUADXA” es- 
tá sempre em À quer se atinçga ou não 
um barco inimigo, enquanto que o ou- 
tro - “ESQUADRA INIMIGA” — funciena 
perfeitamente, 

O programa está correctamente trans- 
crito na revista ou existe qualquer ve 
rificação a fazer?” 

DANIEL CLIVEIRA 
Lisboa 


Pela nossa parts, não houve “gralhas” 
na transcrição do referido proçrara, 

O seu autor, a quem já dirigimos a sua 
questão, irá brevemente esclarecê-la, 
Publicaremos esses esclarecimentos lo- 
go que os recebamos, 





«"Há alguma revista de micre à venda 


qm 
Perus: . FERNANDO SOUSA 
Caldas da Rainha 


As revistas que vames mencienar vender 
-5e em Pertugal, nencadamente nas li- 
yrarias Bertrand: 


-LºORDINATEUR INDIVIDUEL (Mensal) 


—MICRO SYSTLMES (Mensal) 
-PERSONAL COMPUTER (Mensal) 
SINCLAIR USER (Mensal) 

-YOUR COMPUTER (Mensal) 
-PRACTICAL COMPUTING (Mensal) 
-ZX COMPUTING  (Bimensal) 





e"(ccoe) O que se encontra escrito na li- 
nha 50 do programa do boletim O, pág. 
2 dd 
12 (12º programa)? JOSÉ GORDA 
Figueira da Foz 


5Q PRINT AT 10,0;X; "+"; Y;"=";X+1+Z 





e“Desejo trocar ideias e programas 
do ZX81.” - 

EDUARDO J.F. BORGES 

Re 8 de Setexbro, 274 

4300 Porto 

Telef.: 557109 


Os programas “CIRCUITO” e “ICRRES DE 
RANOY” foram novamente entregues aos 


s/ autores. Publicaremos os seus comen 
e “Gostava de adquirir livros para 


o ZX81 e SPECTRUM da SINCLAIR.” 


JOSE GCRDA 
Figueira da Foz 


Aqui está uma lista da bibliografia 
que conhecemos , Se não encontrar 
à venda algum destes livros, podere 
mos enviar-lhe à cobrança. 


SOBRE ZX 81 
- o 5 ? (em Portu- 


guês e em Inglês) 
- "ZX81 BASIC Book”, Robin ond 
- “Tne ZX81 Add-On Book”, Martin 


Wren-=kilton 

- “The Explorers Guide to the Zx81”, 
Mike Lord 

- “La Conduite du ZX81”, Gabriel 
Nollet' 


- “Peek, Poke, Byte and Ran”, Ian 


Stewart e Robin Jones 

- “The Gateway Guide to the ZX81 ana 
ZX80", Mark Charlton 

- “30 Programs for the ZX81”, 
rprsato Francis 


- 4 Amazing Games for the lk 2x8); 


Alistair Gourlay 


- “Getting Acquainted with your ZXx81º 


E Hartnell 


- “49 Explosive Games for the Z2X81”, 


Tim Hartnell 

- “Sinclair ZX81 Rom Disassenbly”, 
Ian Logan e Frank O'“hara 

- “30 Hour BASIC”, Clive Prigmore 

- "ZX51 User's Handbook”, Trevor J, 
Terrei e Kobert J. Simpson 

- “The ZX81 Companion”, Bob Maunder 

- “About Computers”, Eric Deeson 

- “Mastering Your Machine Code on 
Your ZX » Tony Baker 

- “Machine Language Programming made 
simple for your Sinclair 


="The ZX81 pocket book”, Trevor Toms 
- “what can I do with 1K? - 40 program: 
& routines”, Re Valentine 


- “Hints & Tips for the ZX81”, Andrey 


De Hewson 

- “Understanding your ZX81 Rom”, Ian 
Logan 

- “The Sinclair ZX81 programi for 
real applications”, Randle Hurley 

- “Byteing deeper into your ZX81”, 


Mark Harrison 


- “The Art of Programming the 16K ZxX81% 


Me James e SecMe Gesa 

- “Not Only - 30 Programs for the 
2X81) o o 0LK” 

- “Timex Sinclair ICCO - User*s Manual" 


“The Art of Programming tne lk ZX51” 
“50 Programas Educacionais” 


SOBRE ZX SPECTRUM € 


- “ZX Soectrum Introduction” 

- “2X Soectrum BASIC Programi 
Manual ZX Soectrum (am Português) 
“Tne Soectrum Book of Gamss”, Mika 


e 
James, Se Me Geo e Kay Ewbank 


- "20 Best Programs for the ZX Svectrun? 

Êndrew Fewson 

“The ZX Spectrum Exolored”, Tim hartnell: 

“The ZX Spectrum and How to get the 

most from it”, Ian Sinclair 

- “60 Games and Applications for the ZX 

Spectrum”, David Harwood 

“Over the Sovectrum” 

- “20 Proçgrams for the ZX Sectrum”, 
richard Francis Altwasser 

- “Computer Puzzles; For Spectrum & 

ZXS1º, Ian Stewart e Robin Jones 

“The Svectrum Programmer”, Se M. Gee 


“Easy Programming for the ZX Spectrum” 
“Programming Your ZX Soectrva” 








- Para troca com NUNO SANTOS 

“Posso arranjar uma cópia do jogo de 
XADREZ DA PSION. Esse membro do Clube 
ainda está interessado nessa aquisi- 


ção FERNANDO PRECES 
Sacavém 


Cremos que sim, pois não fomos infor- 
mados em contrário. A morada desse as- 
sociado é: Re Sto, Isidro, 82 = 32 D,Trz: 
4000 Porto 


REM xx FLOT +44 REM 
REM ses ic ça REIM 
E=1:A=E:-FEM 448 PAULO CASTELO 488 REM 


GOSUESAD 
REM “ESTRELA” 


v- 
— - 


FOR I=B TO 1079S5STEP 5.5 


2 G)F) rs ra no aTy (MN ra 
DR 4 | RD 


3a FLOTFLACO.o TENCI) 

«a PLOTOU/(125,3>2: HEXZT TI 

6a IF E=iTHEH Futm 

"a REM “DECISÃO” 

2a IF A=1 THEM A=0 :E=a:GUTO ceu 
ES FEM "ERECES 

ao FORH=A TO 1 

aa FOR I=124TO0-1245&TEF-S 

110 PLOT PLACI,-125>, CRWUC1IZ3,-1.S) 
126 HEAT 1 

13A FOR 1I=-123 TO 1Zã GSTEF 6 

i494 PLOT PLAC-I, 125», DRUC-=125.1.3) 
15504 MEXZT 1 

O FOR [=i28 TO =124 STEP-s 

ra PLOT PLAÇ-I,=-125>, CENC-A 1.2) 
ss HEXT 1 

aa FOR 1I=-123 TO 1255TÊEF 6 

2a FLOT FLACI, 1202. CENCÇIZS.T,S2 
214 HEXT I:NEXT NoAf=1: E=1 

os REM “VEL 

“oa FOR I=128TO-1ZI5STEF- 

oa PLOT FLACI,l2s2, CRUCI,-12S.S) 
240 NEXT 1 :FOR I=-123TU 2S2TEFS 
2a PLOT FLACI, 12582, DENE T,-1lSS.S 
sa HEXT I:GOTO GU 

2a FEM "LECIIES” 

0a E=0:FOR am ato 1 

3154 FLOTCENCSTS,0) 

met FOR I=17 GTA a o 

224 PLOTPLACA, Go, TENCI DZ. CETC ISO. Go) 
s40 HEXT 1 

os PLOTCENCIZ3, ZIF 4 

“6a FOR I=2?y TO ZSESZSTEP < 

sra FLOTPLACO,B>, TENGI 2, CET 
mta NEXT I 

vam HEXT N:PLOTCEHC 250, 1252 A=i:GOTOQZZE 
sas FOR I=1iTO Z7:FEROU AS 

sta FRINT TREC23>2;A8:-NEST 1 

ezm RETURN 

ssa CATA 

say DATA 

som DATA 

sea CATA 

sy DATA 

som DATA 

sam CATAR 

Ena END 


CLOSES1Z292:0PENSO,4, "Lema" :CFENGIZ3,11 


PLOTENG( SGD, 259), NIPE, CENC2S0. 1252, DEL 


"O progama “PLOT 1º faz num 
quadrado no éran uma demons- 
tração das capacidades grá- 
ficas do NENBRAINo 
“Não é um programa muito bom 
mas destina-se a que possí- 
veis assinantes deste bole- 
tim possuidores do NEWERAIN 
também enviem proçramas deste 
para o boletim e que, portan 
to, este tenha proçramas, em 
BASIC, de outros computadores 
que não o ZX81, mas que têm 
também o micro-processador 
Z5p e que também são bons pa- 
ra iniciadose” 

PAULO CASTELO 

Porto 





P 






"Remete um pregrama de um jogo 
para e ZX81 de IX (ova) Ou Já 
experimentei e nãe tive qual- 
quer problema.” 


ROGRAMA “TELE-SKETICHT 


CO O Se 


LET A = 2 
LET X = 30 

LET Y = 20 

PRINT AT O. 11; 

1F A = 2 THEN PRINT YDESENHAR? 
IF A = 5 THEN PRINT "SCBREPCR? 
PLOT X.Y 

UNPLOT XY 

IF A = 5 THEN GOTO 18 

PLOT X,Y 

LET AS = INKEY $ 


LET X =X-(AS ="1" OR A$ ="G" OR AS="A" AND X>5)+(AS="dº OR ne E - 


OR AS="D" AND X €59 1 


LET V=y+(AS="1" OR Ab="2" OR AS="3" AND YL “O)- (AS="A" OR A$s"S” OR AS="Dº 


AND Y210) 

IF A$ = "CC! THEN OOTO 60 
GCoTO 14 is 

LET À = 10/A 


GOTO 8 


FERNANDO SOUSA 
Caldas da Raínha 


Este programa celeca um curser negre 

ne centre de ésran. Utilizande as te- 
clas que abaixe se referem, meve-st 0 
gurser num sentide eu neutre, cem e 

que se pede traçar linhas diagenais eu 
herizentais ne ésran, ebtende assin es 
desenhes. 

Deste mede, as “SOBREPOR”, essas teclas 
indicam ae eurser, agera branse, que 59 


brepenha as linhas previamente traçadas 


a negre., 


: Desenhar ne écran 


ta 


















“Para mudar de um estade ae eutre (de se 


breper” a “desenhar” e vice-versa), pri- 
me-se a tecla “C”, 
A área de écran dispenível fei limitada 
pelas ecordenadas X na linha 20 de pre- 
grama entre X =5eX =53; na linha 30 
limita-se e intervale de variação das ce 
erdenadas Y entre Y =30 e Y = 10. 

Se se dispuser de mais memória, pode 

utilizar-se es intervalos ds variação 


O<X<63€ 0>Y <43 


Leo 


PEOGRAMA “CONTRABANDISTA* 


R PROGRAMS SE 
CLAI Pisbaio. 
“REU 1983 - —- “EM 


h 


i 
FLV 
| 
O OD 
Tm mM 
q NE. 
t 
“ta 
DA 
DZ 
q o 
[a 


| 


(1) 
| 
ur y 


R º“;AT 8,5; “(SEU NOME, 


VC 


O 
To 


S 
LET N=INT ((31-(LEN N$+9))7 


B,N;“LOJA DO “;NS 
S,OsUtErRREREFErRErEE 
eREELAT 12,0; + 
LEE+ 
4,8 
+ 


tu 
eU PReRDD 
DrULAOr«0SO DUO 


NM QL mw 


LrrErrErErHEE 
s "BANCO “:;AT 6, 
»* "UNIDADES. “; 


DO mx 
oa tm 
ond 
DDD. 
4DDA 


CV 


() 


4, * “RELOGIOS“:AT 
OS“:;AaT 6, 15; CUHISKE 
IDEOS“; AT 8, 15;“:Hax 


“TO DU 


"4 :D0ODm 
IS a 


e 
FICEONDC<MA no 
CE NNNNNNNA 


rHOGOGONAJA 


e 


+ 


IXE .. 


A 


So LET 
98 GOSUB 99909 
95 GCOSUB S5EB09 


T 6 
ea Pos: UT 
ERA S,2B;U;TAR És; * 


oc 


= se 


EN PRINT AT 15,0; “ 
COB+":TAB B;“ (O PRE 


Mm 148 PRINT AT 14,15;' "PRÊCOS-“:aTr 


16,18: “RELOGIOS “amMT 16,.27;P 
da 18; “CIGARROS “AT 17,27; 

7:53 TRE 18; CUMISKEY “SMT 18,97? 
E 18; "UIDEOS, e E] ne. o? 
» 


HEN GOTO 

89 IF Lc<c>1 AND Z>3 THEN GOTO 
178 GOTO Z+1060 

1896 REM ROTINA DE COMPRAS 

1010 GOSUB 99850 

1040 PRINT AT 14,0;"0 QUE DESEJA 
TAB G;"U. ADQUIRIR ?“;TAB SB; “IR 

ES rt 

1956 INPUT PS 


155 IF Z<>INT Z OR ti UR EIS T 
150 
x 


1060 IF P&<>"R”" AND Pg&c<>"C" AND... 
P$<>"U AND Pgc<>"4"” AND P$Êc>Ua” 
THEN GOTO 10568 

1070 IF Pã="R'' THEN LET P=F (is 
1080 IF Pg='"'C' THEN LET P=PÍ2) 
1999 IF Pgã="Wº THEN LET P=P(3) 
11920 IF Pãz="V'" THEN LET P=Pt(4) 
1118 IF Páãz='Hº THEN LET P=PtIS) 
1115 COSUB 9950 

1120 PRINT AT 14,0;“V. TEM MEIOS: 
dd 2; "PARA COMPRAR “as INT (B/P 
1130 PRINT AT 17,80; "QUANTO QUER“ 
TAB BD;"U. COMPRAR 2?" 

1140 INPUT Fama E - 


PT. POR DERB : 





ara; 8; EE CERSSE 


os o ce 
asd AT 5,4; "COM QUEM ESTO 
G 

U 


 HPRERQUUHL UAGWU 
DDOMO papa X UI 


| 


1159 TF” O5U THEN GOSUB 1960 
1155 LET U=J-QO 

1190 LET 5B=B-(QO+P). 

1170 IF Pá="'R' THEN LET R=R+0 
1180 IF Pg='C'' THEN LET C=C+9 
1192 IF Pã="yU" THEN LET U=U+Q 
1200 IF Pã="U THEN LET V=U+9 
1210 IF Pá="HT THEN LET H=hH+9 


po pa 
o Tu fu 
DU A 
9049 
O 
Ó 
bar 
Q 
pá 
9 
9 


19 PRINT AT 28,0;“U. ARENAS TE 
"-TAB B; "ESPACO BRÊR 

1518 COTO 1140 

1920 RETURN 

1999 STOP 

2990 REM ROTINA DE VENDA 

2010 GOSUB 9950 

28620 PRINT AT 14,0; "QUE PRETENL 
"TAB B; "U. VENDER 2"; TAB DB; (R- 
PU PMS AI 

2030 INPUT PS 

2240 IF P$&c>)"Rº AND P$ec>"C“ AND 
PES VU” AND P$<>"U” AND Pgc>"H” 

THEN GOTO 2038 

2250 IF P$s"R”º THEN LET P=P(2) 
2960 IF P$='Cº THEN LET P=Pt(D) 
2670 IF Pg=“"Uº THEN LET P=Pt(S) 
22588 IF Ps="U"º THEN LET P=Ptitgsys 
2090 IF Ps="H'' THEN LET P=P(S) 
2100 GOSUB 99860 

2118 PRINT AT 14.6: "QUANTO QUEF 
;:TAS 6; "U. VENDER 2?” 

21260 INPUT O 

2130 IF P$="Rº AND 0>R THEN GOT 
2120 

2140 IF P$="C” AND 9>C THEN GOT 
219 

2150 IF P$="U” AND 0>U THEN 607 
212 

2160 IF P$="U” AND 0>U THEN GOT 
2120 

2178 IF Pg="Hº AND 05H THEN G07 
2126 

2180 LET B=B+P+0 

219020 LET UzU+0 

2200 IF P$="R"º THEN LET R=R-B 
2210 IF P$="C" THEN LET C=C-O 
2220 IF Pg="y” THEN LET U=-o 
2236 IF P3="U” THEN LET V=U-0 
2240 IF P$="Ho THEN LET H=H-6 
2245 IF B>=19026020 THEN GOTO Soc 


2320 E 109 


3 

3005 LET T=T+1 

3018 GOSUS 9950 

38020 PRINT AT 14,0; “DESTINO 2“ 

T 16.0; "1.LISSOR-; TAS O: “2. CEU 

";TRB O; "3.TANGER"; TAB 2; "4. RO 
TRAB BG: "5S.LAS PALMAS” 

abas INPUT L 

DD IF LesINT LORLcei OR LOSE 

HEN GOTO 53038 


38520 GOSUS5S 9900 
3250 IF RND<.25 THEN GOSUB 970€ 


LET N=INT ((31-(LEN N$&+9)) 


82 PRINT AT O,N;"“LOJA DO “/;NES 
929 PRINT AT 2,0; CErEERFFrErFrFErFrERFEFrFE+ 
trErrErrERrrrERrErrEECLAT I12,0;'+ 
RE 
So PRINT. à: CUNTO CS RR. 
aT“6S o “UNIDADES: 


6; 
PRINT AT à, 15: “"RELOGIOS*;F 
15; "CIGARROS"; AT 6,15; "WHISKk 
7,36; "VIDEDS"; AT E,425; "HA 


Ro. 

Q GOSUB 9930 

43-=- LEFY2I;Nt- (à. 128YF 
SG GOTO 95 

os 
1 


me CI CTV O 
ed dg di 
“ 

9 


REM ROT INS JRCOB 
Gosus 955 
56 PRINT AT 14 SG; “UU. DESEJA PE! 
"“-TAB O: “EMPREST IMOS :TRE O:"O 
FÉNBOLSAR T“;TAB BG; "LP/RI* 





4030 INPUT C&$ 
4035 IF C&<>"“P* 
GOTO 40398 

4049 IF C5&="P” THEN GOTO 4590 
4258 PRINT AT 158,8: "QUANTO QUER 
VU. “;TAB O: "REEMBÓLSAR 2" 

“250 INPUT M 


4070 IF M<ec>)INT HOR mMyS>Y OR MSBT 
HEN GOTO 49050 

4280 LET W=zY-M 

ADS LGP =B-M 

4290 GOSU5S 9550 

4106 GOTEC 200 

45603 PRINT AT 128,0: "9UANTO QUER" 
s188 OD; "UV.PEDIRT” 

45193 INPUT M 

2815 IF Y=82 THEN LET Y=z1080 

4520 IF M>2*Y THEN GOTO 45190 
4.539 LET wWz=Y +M 

2535 LET B=B+t! 

1.540 GOSUD 99380 

“53532 GOTO 198 

93920 REM ROTINA DE GANHO 

9005 CLS 

3210 PRINT AT 6,N+2;, “PARASENS, *“ 
«Ng 

9020 PRINT AT 29B,3:"U. JA TENS 40 
9.000 CONTOS E '“;TAB SS; “PODE-SE 
REIFORMSR" o 

9030 PRINT AT 28,5; "Vo LEVOU ““;T 


MOVIMENTOS” 


9945 PRINT AT: 18,5; "QUER TORNAR 

R JOGAR ?“;AT 19,21;"“(5 OU N)”“ 
9649 PAUSE SEd 

9250 IF INKEy$="S” THEN GOTO 15 
9255 IF InNk=ZyE="N" THEN STOP 

95200 PRINT AT d,4; “NESTE JOGO VO 

CE PRETENDE“: AT 6,0; “ENRIQUECER 

PAPIDAMENTE PELO QUE“;AT E.19:"S 
E DEDICA AO"“;AT 12,16; “E === 

Ei 

3515 PRUSE 500 

9528 CLS 

9522 PRINT AT-10,4;"“PODE-SE REFO 
RMAR QUANDO"; OT 12,21; “OBTIVER"; 
AT 14.8;:100.096 CONTOS'“;AT 185.2 
GQ" (SE PODE...:" 

95253 PAUSE 506 

9525 €CLS 

9539 PRINT BT 1,5;"“U.PRINCIPIA O 
JOGO COMV:AT 4,4; "EEB CONTOS NO 
BANCO E“;AT 7,2; “"DEVENDO A +JAC 
05 «Ei! CONTOS" 
9551 PRINT AT 10,4; "ESTE EMPREST 
IMO FOI PARA'“;AT 13,2; “COMPRAR U 

M BARCO QUE APENAS"“;AT 16.2: “POD 

E TRANSPORTAR ES) UNIDADES*“;AT 19 
,9; "EM CADA UIAGEM" 

3535 FAUSE 500 

9556 CL ex 

2540 PRINT AT 4,5:"“0 JURO DO EMP 
RESTIMO"“:AT 7,1:"FOI ACORDADO EM 
12 POR CENTO“;AT 10,6; "DO UALOR 
EM DIVIDA“;AT 13,7;"POR CADA VI 
AGEM"; AT 16,6:"QUE V.RESOLUA FAZ 
ER 

9545 PAUSE 500 

9546 CLS 


º 


AND CE<c>"Rº TREN 









9558 PRINT AT 12,2;"“0 PORTO DE P 
ARTIDA E LISBOA” 
9555 PAUSE 580 
9550 CLS | 
8578 PRINT AT G,S; "ERMESSZAS: 
9580 RETURN 
5699 STOP 
9700 REM ROTINA DE POLICIA 
9719 CLS 
9720, PRINT AT 10,7;"** POLICIA, 
725 PRUSE 100 
Pam. CLS 
735 IF RND<.S THEN GOTO 9750 
748 PRINT AT 180,E;:“VU.FOI APANHA 
O.“;AT 12,5; “TEM DE PAGAR DE MU 
TA";AT 14 ,S:“O EQUIVALENTE A”;A 
, 8; "MES TESSE 
AUSE 200 
ET R=INT (R/2) 
ET C=INT (C/9) 
ET U=INT (U/3) 
ET Ú=INT (4/9) 
ET M=INT (M/2) 
=50- (R+4C+U+U+H) o 


AT 190,5;"A FIso 
AT 12, 23;)“TUDO É 
190 


id 

CAAUNA 
Li. 

LD) CI 
£L 


0 
HPHTONDADOVIVUDOFFFECIE TO 


+ o “- 
. 


DOVNJINONNINNN JN 
ÚMNPOVODO INQUNJUANARHED: 


DUVIDO DOVDOVOVDADUAT VOD DU 
JOPOQUILPDOGSVONPILOWM 


RUSE 

LS 

ETURN 

TOP 

EM ROTINA FIXACAO PRECOS” 

550 LÊT PCS) =INT 
= (RND+15> 
93 CF P(1)<i THEN GOTO 9520 
95º ET P(2) =105INT (OND=19) 
2540 IF P(l2) «50 THEN GOTO 9855 
7845 LET P(3)=10+INT (RND+:109) 
3852 IF P([3)<392 THEN GOTO 9845 
9355 LET Píd) =190+<INT (RND+*531) 
93850 IF P(4) <5EB THEN GOTO 5555 
3628 15 etSDeid00 FNEn ENCS OA) 
< HEN 
9599 RETURN Ra 
s8es STOP 
SO REM TABELA LOCALIDADE 

Sº25 IE L=1 THEN LET L&="LISBOA” 
3312 IF L=2 THEN LET LS="CEUTAS 
2315 IF L=3 THEN LET L&="TaNGER" 
2520 IE L=4 THEN LET L$="ROMAS = 
MES IF L=5 THEN LET LE="LAS Pp 
9939 RETURN 
S9509 FOR X=14 TO 
9985 PRINT AT X,0;*” 
3890 NEXT X 
Sana RETURN 
S RUE “CONTRABANDE 
3595 RUN ai 


Este programa foi cedido para publicação no CLUBE Z-8$ por 
DAVID EMANUEL ROCHA BARBOSA - Vila Nova de Gaia 


PROGRAMA “P A CADETE ESPACIAL” 


R 
5 
1 
15 
20 
e 

sa 
so 
ao 


45 
50 


Nu 
SU 


ONAODUMÊeUUNVAHODU 
GSIMO QUNUHUNOUOU 
DUHHOHDHOOD VTUMOTT 


2º 
pPRRBLAQHI papá a papa po 


Ç 

dra 
00 
maia 


U 
QI TD 
VePD 
990 

Q 

f 
é” 
O) 
v 


A 


POR BIDERTATALATITA 


La 0) CO) CG) 5 TU (O da 4: 
EL OU Gis qu 


EM PROCRAMA MODIFICADO POR : 
LHEIDA so CES EM 207621952... 


- 


LET RBa” ma 

LET B$=" se 
LET cá 
LT 


LET 
LET 
LET 
LEA 
ET 


7 
DONCMOMDDO 
[RN NNE. 
PrRODO : 


E 
VODIDNAUDI POO LIVNHH] 


O O 

044 Udo 
ÚlI nam 

+++ ++H09 


9 0h 


THEN PRINT AT S,5;"U 
PROMQUIDO” 

2=1 THEN PRINT AT 9,5;* 
UBOU “;E;“ ROBOT”; 

51 THEN PRINT "Ss" 

=S THEN GUTO 199 


2 
o ade Todo 


— 


|" PARABENS... 
se de CADETE DO E 


” 
r 
4 U 


LET M=2ESk& (Ip(PeEk 12RaasD 


*"CEr 16955) + 


( 
IF H>0 AND H<>11 


co 


THEN GOTO 


PE SUTR LS 


ao 


,A$,,885,,CS$ 


RETURM 
PRINT TAB SS; LUTA FEROZ' 
INT ,,ºº VOCE VENCERA OUAN 


PR 
DO DESTRUIR” 


422 


PRINT í,,“COMPLETSMENTE US S 


ROBOTS, PARR” 


ar 
HE TE 
LA 
OT WB 
SR 
CCRO 
ss02 


PRÍMY ,, "SER PADMOUICO 8 EB 
SA EMT dd ço eErs au rrpo coros 


affair ads 
COMANDAM” 
PRINT O FEIXE DE LASER, 


E O pOROT DENE” 


E ax 


PRINT ,,“GER TOTELISSNTE DES 


223 DEST O 


4802 


PRINT ,,"PRIMA zIN/t 35+ PARA 


COMECART 


499 


RETURH 


PROGRAMA “SALVAMENTO EM CRPITA” 


SEREM PROGRAMA TRBD.E MODIF. 
POR ALMEIDA PRECES, EM 20/74/82 
REM “13” 

GOSUE Saw 

10 LET Ri=INT YRNDIS!+43 
20 LET R2=INT (RND*:6)+5 
32 LET Ri=e 

42 LET R2-=PI 

SQ LET C=Q 


NV 


piRty 7 
Me ud ue ja MA pad 
MAO 
HHOO 
LE 


q) 

it 

iú 

d 

X 

pá 

7 
HD: 

439 
a Pu cm a 
XD DODDONN 


ÉS Ca Gi 


130 PRINT “ORE 

140 PRINT AT Iu, 
LS PRAIA ME Fãs. 
21620 IF X1l=X2 AND 


178 PRINT AT Wigo X: 
+98 IF INKEYVS=" 


e É 
199 IF INKEYS$S=]"!4" THEN ter 
288 Ir R1,10 THEN LET BI=L 
Dia IF Ri=i THEN LET Ri=B 

PRIHT AT 4,1;"“HeRsB 
LET C=C+>12 


S 

Q 

ra 

2 PRINT 28 VE Xos 
Q z 
& 


He 
nho: 


mo e 
tn) 
=| 
o 
i) 
7 4 
() 
a 


- 


no a 


PRIME ,eCLEMQU 5 
FOR O=i TG 638 


5 MD ho foto FURO 
Que wluH 


SOB PRINT AT 2,0," UM PESDLENDO 
SALVRBVIDAS FICOU 

Ses PRINT “PERDIDO hUMA ORBITA 
PERMANENTES 

S10 PRINT “EM REDOR DunsA ESTREL 
A DISTANTE." i 
«15 PRINT "VOCE UBI TENTAR CAP 
URB-LO PARA 

See PRINT “DENTRO DO PORSO DA 
URB NAVE, E” 

Ses PRINT “DAR ASSISTENCIA ROS 
SOBREVIVENT ; 

53€ PRINT “TES, NQ MENOR ESPACC 
DE TEMPO. 

S3S PRINT ',,º*”” VOCÊ SABE QUE ELE 
Ss SO TEM AR, 

S42 PRINT “PARA +:EERESEZEES 


. — e a e e dd 


SAS PRINT ",2"R TEC EC âue 
| AR NAVE EM DISEC” 

SSse PRINT “CAO AQ SOL (ts), BR "rh 

“" PARA FORA.” É 

SSS PRINT ,, “PRIMA “ONZL, PAF 


8 COMECAR.” 
SOS” INPUT Ls 

s65 CLS 

S78 RETURN 





Ambos os programas foram enviados por FERNANDO D'ALMEIDA PRECES - Sacavém 


date ROGER OCITO popa 
ESC QUE SIDO DID NGDMBDNG A | TVs 


UU CO LIS 0) QUI lj CD) 6) 3 (4) 


in 


ql () 
EeoUIiDEe RREO ul 


—| 
Na MAN D+ 


Mm 


MIRUITO DU RU Lo o ENT Coe US A RO EO DD 


ds 


tal 
Guga du EM ()] 
Co) CA) TIS TI fed pe pes pes Ted q GD CH Cs] PUTA CIC] 
VIGIAR] 


DO DD GG q qr: 
LC OLE O CH 


“a 


- - 
4. 


GS GOD ADA DMD mg - 
O Co TU TU e CO SO Mm 4 Em 


USO SD O Cy fy JIU O Cy DULG 


po 


» 


FÃ 


= 
«. 


( 


Q 


PROGRAMA “OONTA CORRENTE” 
& E 97) 
REM CONTB CORRENTE 
DIM B5S (IR, IR 
DIM ES tiWQB, IM. 
DIM Fil) 
DIM vid! 
DIM BYvão) 
LEF Na 
LET TDe0 
LET at 
LET St=& 
PRINT “CONTO CORGENTE” 
GOSLUR SARA 
tas 
Ds 
LET Z=â28 
LET M=i1 
PRINT AT 13,2; "NCIS. LDNODMNEM 
DATOS GR E 
INPUT DS 
CL & 
LET RS (M) =DS 
PRINT 25 
Gasta acca 
ir BS49)"Cº THEN GATO ARR 
FF 95=]"C"' THEN ELVTO SUR 
el 
PRINT OT 2,2, CECaTENBTODO LT 
CSMNENTOS 
TFNPUT T& 
LET EsStiM)=TS 
E 
PRINT AT 2Z2.P;C“UuBLioR DO LBN 
e 
INPUT L 
LOT LSSsSTRS kk 
LET ASLEN Lg 
LE W=z1i THEN GUTO Saw 
IF CODE Lgã(A-l2<)2”?” TisZhk GQ 
a 
Goto sea 
til 
PRINT DT 2a, is;poepceaITToO ti US 
tolos” E 
INPUT Cg 
CLS 
1” CS2="Db"º TFREN GOTO EWnw 
4” Coe" FMEM BDIE BE 
GOTO SSB 
LET See 
GOTO B958 
=| HXE=W 
GhOQTOA Sas 
LET Est, 
LET TD=TD+4D 
LET E(Mi=L 
PQINT AT Z,R;TS;TEA J22-A-B 
LET... Gtigt =2D-MX-B 
GoesB aee: 
Lo BRT Tiszit GUTO Em 
coOTo ssa 
Los Cel. 
LET TeEZTRSIl 
LET Fem =t | 
PRINT OT Z,R;T&;TRR jRe2-x-83 
LET Gis: =32-4-B 
GoTO & 17 À 
LET Z=]7512 2 
LET SLºzTD-TO K 
CLS 
PRINT DT ZPR,2."NBIA LaNcame 
> (Sen? 
INPUT TIS 
[= Ig=)Nº THEN Goro ima 
TE I8º"º5* THEN LET 5=/35a 
CEL 
GoTo alo + 
CLS 
GDODSU3B 4 





MAPA DAS VARIÁVEIS 


-rgmero de lançamento e data 
descrição do lançamento 

F -—yalor do lançamento 
-posição do lançamento 
-número da conta 

-total dos valores DÉSITO 
a Dus º | CRÉDITO 
do SALDO 


Das linhas 1 a 30 encontra-se o di- 
mensionamento das variáveis e a ini 
cialização dos contadores e somado- 
res. 


Das linhas 2000 a 2040 existe uma 
rotina para executar um traço, exem 
plificativo do uso da instrução 
PLOT. 


Das linhas 3000 a 3050 existe a ro- 
tina para confirmação dos valores, 


Das linhas 4000 a 4050 encontram-se 
os títulos que aparecem no écran do 
monitorse 


Das linhas 5000 a 5060 temos outra 
pequena rotina que é usada para a 
entrada do número da contas 


O PROGRAMA NÃO TEM QUIRA PRITENSÃO 
QUE NÃO SEJA A DE EXEMPLIFICAR C0O- 
MO SE PODE ESBOÇAR UM TRATAMENTO 
TIPO CONTASILÍSTICO , NUMA PEQUENA 
MÁQUINA COD O ZX8I. 


O dimensionamento da variável Eg... 
-«« DIM Es(10,11) significa que teres 
mos agesso a JO lançamentos, poden- 
do cada um deles ter 11 caracteres 
para a parte dascritiva, Qualquer 
dimensionamento pode ser alterado, 
Por exemplo, se queremos guardar 
l0O0 lançamentos, teremos em todas 
as variáveis, excepto (A): DIM ... 
(100,0 « ) 

A variável A está com dimensão =30, 
ou seja, para 30 contas, 


g 


a 


— 18541-PRINT-AT 2a; 
ESTA -LIGADA Pes ZnS 
1352 INPUT As E 

353 PRINT AT 2a, 2; - “. 


ssa FB 


+ 





ES Ma] et pd pa EA FS ps pa 


MONTA QU 


pa 


ESVUNULONDOSO 
+ PEeOLLGOGDNNVEE 
dá dd 


pá 
GI 6) 
(1 da 
"50 


pá fa 
MIO TA LATS TATA 
INONNDAM 


a 


NDA 


Ho DPS ps pa pos pos pos po pa po 
PNELOOCO) 

Vi GONN 
SNS 


1422 


des 


" 

1440 IF OL<A THEN PRINT AT 
-Y);SL | “Ro a: 
14:20 COSUR Z60e0 + 
21460 PRINT AT 204,04; “SE 
DE NOVO A 
O 120208 


4702 


fo pa 

io io 
€) 
e] 


VZEOU EI) 
9º 9O499 


p 
oo 
p 
bs 


á QE 


g 5 42: "DESITO”; 
«"“ABDO LET 
40780 GOSUIE 2Zaaa z Ei 
420504 RETURN 
Ss22020 PRINT 


DE 


G 
(y 
pe 


e 


f 


9999949D99 
ONU PC Ny) 
99609559Z 


TEORTKEI TO TE 
FEI E THEN 


O 


dd 


fu 
So 
ru 
VE: 
2 
DA 

z 

KH 


Co 


LET H$S-STRS TD: e si À 
LET Z=LEN Hs e eia a 
IF INT TD=UAL. Hs THEN LET' ZÉ 
LET U$=STRS.TO Co & =. 3 
LET USLEN 4$ - E 
“a” ENT TC= URL us THEN LET = 





peça o ESMNE 
PRINT ES$( 4 | 
PRINT ES (KI TRR RELA IR LS 
NEXT K& 


Ed 
> 





ut tar 


Goro 1405 : 
PRUSE 12ea 
LR INPRESSORA 


ha 


UI 


G="]“NWNº 

IF Ag="s" 
IF AGO NT 
1353 

CLS 

RETURN 

GOSUB 4eceea E . 

FOR c ? 

PRINT EB3Btk> - Er 

PRINT EgIKI,TRA CfkI;EITKAS 

NEXT «K 

GOTO 1a0e0 


THEN goro +a 
THEN Copy 


BND B$<4205” THEN 


esa 


UTRBES; , FAR t 


E DO” 
LET S$=STR$ 

LES Y=LEN 58 
IF INT St=UBL ss THEN LET Yy 


CL>=à THEN PSQINT AT dt, io 


vm pipe M TR y, vil Fa mit Et My! ht ! 


In 


Wi ny! 


RLUER VER 
MESMA COoNTA,FRCS JB0 3 
+ 


Noto. 
STOP 
REM TRRCO 
FOR X=ê TO 62 
PLOT X pd. A =. 
NEXT X E pe as 
NETURN' : 
GOSUB 12asSe0 
coTo i1ãM6Ha 
GOSURB 1350 
GOTA 1468 
REM VERIFICAR ENTAFORA O E 


PRINT 
PRINT AT 42,GQ; “USE asCar SET 
soco Motas” 


DQOLTRO 
INPUT R$ | 
CLS 


RETURN 
REM 
PRINT BT IR, 
"“4ARTN-323-: 
LET L=48 
GOSUE 228002 - 
PRINT “num, 
TRÊ 


RT vi 


Mr, 
LP 


ta ph 


jilh 


4 
u 


E NUNO ISO 
“CONTA COSRENT 


“PATR; TR 


TB& z 
CREDITO” 


Do; 


&; 


L=A5 


PRM MP 


AT 22,2; CESCREUB NUM, 
NTB” | ae - 


pm 


im 


s. 


li 
| 


PRINT AT 1,€;"CONTA NUM, 
GOSUR aeesa 
IF Ages C” 
LET N=N+1 
RETURN 
“CONTA CORRENTES 
4 


THEN COTÃ sauna 


E 


13 


Uma observação ainda, sobre as li- 
nhas 530 a 545: 

S30 - é efectuada a medição do com 
primento do lançamento, ou seja, 
quantos caracteres possui - por e- 
xemplo, 748.5... possuí o comprimen 
to A = 5 (não esquecer que o ponto 
também conta). 

045 - verifica-se a existengia do 
ponto decimal - CODE L$(A-1)=27 
Por exemplo, se L = 748,5 então 
Lg “= “748.5º eceAs do 

Podem verificar que 5-1 = 4 e o 42 
caracter é efectivamente o ponto, 
ou Seja, O caracter que possuí o cé 
digo Elo 


Existem Outras formas mais eficazes 
de situar um dado número numa colu- 
na determinada. Por exemplo, situar 
os valores 748,5 e 24 na coluna 28 


O 26 28 32 


748,50 
24. 


a 


L$ = SIR$ INTL 

A = LEN Lg 

PRINT TAB (29-A);L 

Obs. - INT significa a função 
que selecciona a parte 
inteira do número. 


é 


L = 748.50 
Lg = “748” 

A=3 

PRINT TAB (26);L 


Le 24 
Ls =" 24º 

A=2 

PRINT TAS (27);L 


NOTA: LINHA 1440 - LEIA-se 
“THEN PRINT AT 20, (22-Y);SL 


SISTEMAS PERICIAIS | | 





O Homem, para resolver problemas, recor 


re normalmente a regras pré-estabeleci- 





das e/ou baseadas na sua experiencia e 


conhecimentes. Em geral, quando faz fre 








quentemente a pergunta "perquê”, acaba 





por ser “chutado” sem resposta - 95 sis 





tanas periciais são muite mais delica- 





aos. 





a 


A qualquer altura em que uma pessoa seja in 
capaz de explicar uma decisão, 9 sistema pe 
ricial responde de forma humanamente intelí 
gível, Normalmente, a resposta obtém-se por 
exibição ou impressão do conjunte de regras 
usadas para uma certa decisão. Por vezes o 
sistema indica também quais as regras que 
considerou, mas rejeitou, durante uma ses- 
são. 

Prevê-se que futuramente haverá sistemas 
susceptíveis de utilização em casa ou ne sa 
preço, fazendo cálculos, tratande de seu 
carro, das suas plantas,... 

Por enquanto, isso ainda não é possível - 

- embora haja certes micre-sistemas perici- 
ais em máquinas come SIRIUS, IBM e SAGÊE IL. 
As áreas de aplicação podem ser extensas ou 
reduzidas, vulgares ou complexas. 

Quanto à parte extensa e complexa, há um 
sistema desenvelrido nos E-U.Ã., densainade 
“Prospector”, destinade a utilização em ex- 
plerações qeologicas. 

Ne ane anteríer, e Prespector ternou-se as- 
sunte cerrents, devide a um seu prognóstico 
que origineu a paraçem de muites geóloges. 
Foi dado ae Prospector e a um grupo de peri 
tes um campo de estudos numa certa árez de 
Washington. O Prespescter concluiu que, nºs 
sa área, numa grande extensão havia desósi- 
tes de molibdénie.. Os gesloges discordaram 
argumentande que ssss mineral existia ape- 
nas numa área muito restrita. Ae fim de al- 
gum tempo de explorações, concluiu-ss que 4 
Prespector tinha aesrtado., 

Para se compreender a razão da difiguldade 
de incluir sisteaas periciais em micres, de 
ve dizer-se que e Prospector é escrito num 
dialeete de LISP, chamade INTERLISP, e as 


listagens de pregramas atingem mais 
de 300 páginas da linguagem erigem - 
-— para isso é necessário um equipa- 
mente digital. Fase a isto, a maieria 
des micros ficaria paralizada. 


| À Universidade de Stanferd e a IBM a- 


mericana delinearam um projecto - 6 
projecte DART (“Diagnosis, Assistance, 
Referenes Tool”) que tenta selucie- 
nar e incómodo problema de come forne 
cer a um computader alguns conhecimen 
tos sobre as suas própria funções, a 
sua fisioloçia. Numa fases seguinte, 
tentará habilitá-le a explicar essa 
sua fisiolegia. 
MIKE GENESERETII, participante ne pre- 
jecte DART, afirma: “Se perguntar a 
um computador de que mode ss espera 
que ele funciens, a resposta que eu 
quere é sensivelaente identica à que 
me daria e eriador desse sistemã. 
Qual o comportamente que ss espera 
do sistema e perquê? 
Para chegarmes aqui, partimos de ee- 
nhecimentes básices, a partir des 
quais estabelecemos asserções sobre a 
estrutura da máquina - asssrções de 
alto nível, tal come faz o CPU. Uma 
vez que se tenha construíde e prejea- 
te desse modelo, estabelecemos um cen 
junte de regras para é utilizar” 
Uma outra implicação destes prejecte 
pessibilitar e desenvelrimente de sis 
temas operativos “"interfass”. 
“Enquanto es computadores se vãe ter- 
nande mais e mais cemplicades, t 
se terna mais difícil usá-les, Assim, 
para além do prejecte DART, estames à 
trabalhar ne sentide de ternar mais 
fácil aos utilizadores e asssse ass 
sistemas, A ideia é ter um “agents in 
teligente” em cada máquina, que saiba 
come ela é e come atingir es objesti- 
vos do utilizader. 
DOUG LENAT desenvelveu recentemente 
um sistema pericial, deneninado 
HEURISKO, que aplicou a deis preble- 
mas diferentes; e “design” de semicen 
duteres 3D e a realização de um jogo 
de guerra sefisticade, 
O sistema Heurisko enfrenteu a alter=- 
nativa de peder eu nãe usar um métede 
satisfatório para ebter as trâs dimen 


?) 


s0es em vez das duas tradicionais. Os re 
sultados surpreenderam o préprio LENAT. 
“O sistema baseou-se num eutre que eu 
também ceoncebi, e AM, Este fei especial- 
mente eriade para e campo da matemática, 
de mode a tentar descebrir nevas regras. 
Durante algum tempe funcieneu bem, mas 
Cepois começou a entrar em ceisas dema- 
siade vulgares, e que não interessava, 

O sistema heuriske é, pois, diferente 

de medo a evitar que iste acenteça, 

Há algum tempe, heurisko fez uma desce- 
bDerta que parecia premetedera quante ae 
design SD; descebriu uma estrutura ea- 
paz de, simultaneamente, ter as funções 
AND/OR (em vez de uma função de cada 

vez como ne medele 2D),” 

LENAT nãe permenerizeu muito mais este 
aspecte, mas referiu que ele está a ser 
denominado XIDS (Cress MOS). 

Para além deste campo, LENAT useu tam- 
bém a técnica heuriske para censtruir 

um joge de guerra, co e qual veie a 
ganhar e cencurso “Trillien Credit 
Squadren* nes EcUcÃo 

“A ideia fundamental é que heuristo é 
capaz de alterar um certo “design” cer- 
Linande pequenas modificações e avalian- 
ade a qualidade des resultados. Ganhei e 
Concurso referido e espere ganhar neva- 
mente em 1983, embora vá ser mais difícil, 
Z que cada vez mais técnicos se envolvem 
neste tipo de ceisas e es sistemas peri- 
ciais sãe um meio ideal,” 
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TRADUZIDO E ADAPIADO DA REVISTA “PERSONAL 


COMPUTER”, Jane, 1983 
SCE TUE E O SI ST EI ID ET TI E TD 


Um tipo de aplicação dos 
“Expert Systems” ou “Sis- 
temas Periciais” é exem 
pliíficado no programa 
“DIAGNÓSTICO” para o ZX81 
(ve pág. seguinte), em 
que são simuladas algumas 
avarias que ocorrem no 
seu automóvel e o progra- 
ma “pretende"(?) diaçnos- 
tiícar o problema provável, 


Neste momento, estãc a ser 
desenvolvidos trabalhos 
neste carpo, em que a má- 
quina é adquirida jé com 
o programa em ROM e dirigi 
da para uma aplicação es- 
pecíficas 


Se o leitor possuí experi- 
encia num dado campo e pre 
tende similar algum caso 
semelhante ao que foi tra- 
tado no referido programa, 
teremos o maior interesse 
em ajudá-lo a desenrolver 
o programa, desce que for- 
neça dados equivalentes - 
- Use O mesmo processo 
que utilizámos nesse pro- 
GI ama . 


EM PORTUGAL NASCEU JÁ UMA ASSOCIAÇÃO (OU NÚCLEO) DE INTELIGENCIA 
ARTIFICIAL QUE GRAVITA À VOLTA DE ESPECIALISTAS DA UNIVERSIDADE 
NOVA DE LISBOA E DA UNIVERSIDADE DE COIMBRA, 

SE ALGUM DOS LEITORES PRETENDER UMA LIGAÇÃO A ESSE GRUPO, NÃO FA- 
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A versão inícial dssta linçuagen de 
programação foi apresentada cn 13963, 
Concretaments estava na lirha aas 
linguagens tipo AICOL. 

Após uma fase de desenvolvimento, o 
primeiro compilador torncu-se opera 
cional em 1970. Desde essa data, O 
interesse na criação de corpiladaras 
para vários corputadorss foi se-pre 
crescents, de tal forma que em 1973 
estava pronta a definiçao da repre- 
sentação desta lirquagame 

NIKLAYS WIRTH (CTH - Zurich) é o 
criador e núcleo central do grupo 
que implementou esta linçquagem, En- 
tre os objectivos do projecto ini- 
cial, está também o da sua utíliza- 
ção como ferramenta de ensino (ain- 
da hoje encontramos tradicionalis- 
tas que apenas consideram o ensíião 
como a grande aplicação do PASCAL). 
PASCAL é uma lirguagem estruturada, 
ou seja, é de certo modo aníloça à 
corposição da linguagem natural, Na 
apendizagem da linguagem natural en 
contramos regras específicas da gra 
mzática para a formação de paráçrafos 


e da afirmações corplexas, Com PAJXAL 


a construção de um programa ocbedsce 
a uma técnica modular, como quen a- 
grupa blocos até obter a construção 
do edifícios, 


A título de exmplificação, cDservenos 
que o Instituto WANG, uma das orçani 
zações mais prestigiadas da indistri 
a de computadores, e onde são forma- 
dos anualmente trinta e seis graqua- 
dos, incluírdo o grau P&D (Goutora- 
mento em SOFTWARE), tem como condição 
fundamental de admissão o conheciren 
to de PAX AL, 

Não esqueçamos que linguagens ccmo o 
FCRTA são especialmernta devotadas 
às aplicações de centrolc industrial. 
O programador pode construir novos e 
potentes procedimentos baseado, logi- 
camente em procedimentos anteriores. 
Existem já versões de PORT: para os 
mais pcpulares microcorputadorsse. 
Será o grande concorrente ao PASCAL. 
O criador de PASCAL, NIKLILS WwIRTA, 
diz frequentemente - e será bom não 
esquecer - que ss SOFTWARE, NADA 
CONSEGUE SUBSTITUIR A INTELIGENCIA 
CRIADORA”. 


SE TIVEREM INTERESSE NUA ABORDASES MAIS PROFUNDA 


DA LING UAGE?4 PAS 


QUE NOS COXTACIEM. 


PASCAL CU QUILQUER CUis 


à, ESPERAMOS 


a e 2 e e e o 
PASSO Ã PASSO 


Um simples programa em BASIC permite 
projectar rapidamente redes para equa 
lização de filtros passa-baixo, passa- 
-alto e passa-bandas 

Tais equalizadores vão de encontro aos 
requisítos dos modernos sistemas de 
telecomunicações. As componentes dos 
valores normalizados para O equaliza- 
dor mais popular - a ponte T - conse- 
guer-se com o auxílio das redes da 
figura l. 


O: 


Cs 


k 4, 





Na figura 1 (a) está representado um equ 
alizador conveniente para um circuito 
de filtro passa-alto ou passa-baixo, ao 
passo que o projecto de um equalizador 
para um filtro passa-banda está ilustra- 
ao na figura 1 (b). 

A partir da atenuação básica do equaliza 
dor usado Com um filtro passa-alto ou 
passa-baixo («o), da pesição polar (fo) 
da sua função de admitancia (y) e da ate 
nuação do equalizador (=)) na frequencia 
de referencia seleccionada (f]), o progra 
ma fornecerã o valor de resistencia R] a 


partir da relação «, = In(l+rj). O valor 


—— — — o («um 


mn o 
masa aa FITAS 
R o 






UM PROGRAMA EM BASIC ACELERA 
O PROJECTO DE REDES EQUALIZADORAS 






“ 


da capacidade C] pode dediízir-se a par 
tir de y(s) = Cis/(LjCys“+1) 
e de 1 
á=)n(1+Z)='/2 [In Ce (F/(F-1))2+ 


323 4 UI (F-1)2+92)]]) 
sendo F = exp “oe 


O produto LjC) é determinado por fç (a 
posição do edlos A resistencia R2 é 1 
gual ao dobro de Rj, o mesmo acontecen | 
do com C) e C, e Lg e L) respectivamente, 


O processo de cálculo é semelhante 
para equalizadores com filtros passa- 
bandas À excepção requer especifica- 
ção de atenuação adicional («,, à fre 
quencia f2) -— ve fige 1 (b)e 

í função de admitancia do equalizador 


y(s) = [(L)+L,)C))82+1) / [Lys (Loc)82+ 
+1)) 


A posição do pólo , fo, determina o 
produto de Lj. 

À frequencia de referencia deveria si- 
tuar-se entre o pico do filtro de passa 


banda mais baixo (£5 ) e a sua fre 
quencia de atenuação mínima (f,). A 
frequencia de referencia f, deveria si 
tuar-se entre f, e o pico filtro 
passa-banda superiore 

Os valores das corporentes Ly e Lg são 
determinados a partir da função de ad- 
mitancia, y(s), avaliadas a f) e fz 
respectivamente, As restantes compo- 
nentes (R2 ,sC2, Ls e C3) são duais de 
Rj» Lys Cy) O Lg respectivamente, 

Em todos os casos, os valores actuais 
das componentes obtem-se por multiípli- 
cação dos valores de reséstencia e in- 
dutancia pela ímpedancia requerida 

(2 = R), e dívidindo os valores de capa 
cidade por Re 


PROBLEMA? 


IMPEDANCIA(OHMS)=150 
TIPO DE FILTRO 


1-PASSA BAIXO E PASSA ALTO + 
2-PASSA EANDA 


ATENUACAO (DB) =1.8 
DOSICAO DO POLO(MHZ)DO. 108% 
FREQ. REF. (MHZ)O. 1065 
ATENUACAO (DB)0.8 
R1=34. 953985 
[L1=1292.9518 


R2=651.42186 
Ci=.001€7/541 


L2=37.6318739 C2=. 05746452 


= 
a) 


=REQ. SINTONIA(MHZ)-LICI-LZC2-0. 
1082 

TODAS AS RESIST. ESTAO EM OHMS 
OS CONDENSAD. ESTAO EM MICROFARAD 
S E AS INDUTANCIAS EM MICROHENRI 


OS CONDENSAD. ESTAO EM MICROFARAD 
S E AS INDUTANCIAS EM MICROHENRI 


ES 


ANALISE DO PROJECTO OBTIDO: 


NUMERO DE FREQUENCIAS PARA ANALI 


5E=9 

FREQ. (MHZ) =. 06 
FREQ. (MHZ) =. 096 
FREQ. (MHZ) =0.1 
FREQ. (MHZ) =0. 104 
FREQ. (MHZ) =0. 106 
FREQ. (MHZ)=0. 10€5 


FREQ. (MHZ) =0. 107 
FREQ. (MHZ)=0. 1075 
FREQ. (MHZ) =0. 108 


O programa especificará a resposta do 
equalizader a qualquer número de fre- 
quencias, com «=(1+Z). Se a caracterís 
tica de atenuação do equalizador não 
estiver de acordo com a resposta reque 
rida, os parametros de entrada podem 
ser lígeiramente alterados e a rede re 
projectada. 


Damos uma lista do programa nas páginas 
2ie 22 e um exemplo de execução do mesmo 
para um equalizador que utíliza um fil- 
tro passa-baixo a 108 kHz (em baixo). 


ac (38) 


| 


'o6 5 


FREQ. (MHZ) ATENUACAO (DBS) 


« 06 À. (983421 
- O96 1. 7615067 
0.1 1. 7150816 
0. 104 le 4997 150 
O. 106 1. 0519804 
O. 1065 O 79999997 
O. 107 O. 9121252 
O. 1075 0. 2140944 
O. 108 « 019360058 


1 -SE PRETENDE NOVO PROJECTO 
2-F IM 





| 


10 
Z0 
30 
“o 
30 
EO 
7Q 
NE, 
BO 
Bo 
9U 
92 
94 
100 
110 
120 


125 


1350 
140 
150 
160 
170 
1773 
180 
190 
200 
201 
202 
204 
203 
210 
220 
250 
=40 
250 
ZE0 
270 
:80 
290 
500 
310 
320 
390 
SS 
3959 
394 
956 
39? 
590 


REM "PEF” 

REM "PROJECTO DE EQUALIZADOR PARA FILTROS" 
DIM W(Z0O) | 

PRINT “PROBLEMA?” 

INPUT J$ 

ES O a aa cd ad s 
PRINT “IMPEDANCIA(OHMS)="5 

INPUT R 

PRINT R 

PRINT "TIPO DE FILTRO" 

PRINT 

PRINT "1-PASSA EAIXO E PASSA ALTO” 

PRINT “"2-PASSA BANDA” 

INPUT T 

PRINT 

PRINT “ATENUACAO (DE) =": 

INPUT AO 

PRINT AO 

LET F=EXP (AO/8. 686) 

LET Ri=R*(F-1) 


LET R2=R/(F-1) 


PRINT "POSICAO DO POLO(MHZ)": 

INPUT WO 

PRINT WO 

IF T=2 THEN GOTO 330 

PRINT “FREQ. REF. (MHZ)"; 

INPUT Wi 

PRINT Wi 

PRINT "ATENUACAO (DE)": 

INPUT A! 

PRINT Al 

LET E=EXP (A1/4.5345) | 

LET Y=SOR PES ((R-Fa*2)/(((F-1)*82)*(1-E))) 
LET X=PES (6. Z8318*V%*(WOX*2-WILX*Z) /W1) 
LET Li=R/X 

LET Ci=1/( (6. 28318*W0) **2%L1) 

LET C2=Li/R**2 

LET LZ2=C1*RX*2 

PRINT TRE S:“Ri="sRI;TAB 20; "RZ=";R2 
PRINT TRE S:"LI="sSLISTAB Z0;"Ci="sC1 
PRINT TRE Se "LZ2="sL2:TAR 205 "C2=";C2 
PRINT “FREQ. SINTONIA(MHZ)-LICI-L2C2-" WO 
GOTO 550 | 
PRINT “REF. INF.FREG. (MHZ)="; 

INPUT Wi 

PRINT Wi 

PRINT “ATENUACAD-1-(DES)="; 

INPUT Al 

PRINT AÍ 

PRINT "REF. SUP. FREG. (MHZ)="; 


352 INPUT W2 

355 PRINT W2 

554 PRINT “ATENUACAO-2- (DES) =": 

356 INPUT AZ 

s58 PRINT AZ 

370 LET B=EXP (AÍL/4.5345) 

380 LET C=EXP (A2/4. 3545) 

3590 LET Y1=S50R ((B-FH*2)/(((F-L) HD) (1-B)D) 

400 LET Y2=-SOR ((C-F RX) /(((F-L) 67) 6 (1—-C)D) 

G10 LET X1=6. 283 18*W1*W2* (YVLEWDE(NLHEDWORAD) —Y TWT (NZD RD) ) / (NO DI COND 
Do D) ) 

420 LET >=6. 283184 (V2XWNZ-Y LEWI) EC(NTERZNORED) 4 (NL RRT—NORED) / (NOR CNT SN o 
2) 

430 LET Li=R/X1 

440 LET L2=R/X2 

hS0 LET Ci=1/( (6. 2835184NW0) 42512) 

460 LET C2=Li/RX%2 

s70 LET L3=CiARHHDO 6) 
480 LET CS=L2/Re*2 | 
490 LET Z=WOxSOR (X1I/(XIL+XD)) 

499 PRINT X1 

500 PRINT TAB (S) :ºRiI="SRISTAB (30) s"RE="5R2Z 

S10 PRINT TQR (S)c"Li=":LISTAB (30 "LZ="sLOsTAS (So) 4 "Ci=esal 
s20 PRINT TOR (5)c"C&=":C2s TAB (30) "LI="sLISTAB (55), "CS=" 505 
S30 PRINT TQR (5):"TUNING FREQ. (MHZ) DE L2Ci E LSCS3=":NWO 

S40 PRINT TAB (5):"TUNINO FRER. (MNT) DE LIL2ZCt E CELSCIS" 4L 
=s0 PRINT “TODAS AS RESIST. ESTAO EM OHMS" 

S60 PRINT "OS CONDENSAD. ESTADO EM MICROFARADS E AS INDUTANCIAS EM MICRORENRIES" 
570 PRINT o 

580 PRINT "ANALISE DO PROJECTO OBTIDO:" 

Soo PRINT sacas a een a a cn ns 

£00 PRINT "NUMERO DE FREQUENCIAS PARA ANALISE=" 

£10 INPUT N 

615 PRINT N 

Ss20 FOR I=1i TON 

s30 PRINT "FREQ. (MHZ) =" » 
640 INPUT WCLI) 

645 PRINT W(I) 

ES0 NEXT TI 

£60 PRINT 

£70 PRINT “FREQ. (MHZ) "STAR (16) :"ATENUACAO (DES) * 

575 PRINT 

580 FOR I=1i TON 

690 IF T=2 THEN GOTO 720 

700 LET Y=X+*WN(I)/(6. 285318% (WO AL—W CT) 4H2)) 

710 GOTO 7X%5 

720 LET V=X1/(6.283518*W(I)) +X2XAWCI)/(6. 233184 (WCT) AHD—WORHD)) 
Teês LET LG=((F/(F-1))4n2+yY AD) / CCI / (FI) DAY HDD) 

726 LET LOG=LN LG/LN 10 

730 LET A=2. 30258544. 343*L06 

740 PRINT W(I)J:TAB (1I6G):A 

750 NEXT I | 

760 PRINT 

770 PRINT " 1 -SE PRETENDE NOVO PROJECTO” 

775 PRINT " 2-FIM" 

780 INPUT M 

790 IF M=i THEN GOTO 100 


800 


Save "PROJECTO DE EQUALIZADOR PARA FILTROS" 


E» 


VENDAS DE COMPUTADORES PESSOAIS EM 1982 Inclaterra 





Seçundo uma notícia publicada re Revista “Persoral Corputer”, Feve/1983, em 
Inglaterra cerca de 509 000 pessoas corpraram coxputadores pessoais nc ano 


de 1982, 


bh) 4 + “a ? 
Rocin Pradieer, especialista nc carpo corercial Ga informítica, afirma: 
jo do 


"3 
1 
4 
0) 
"mu 
pa 
[o 
a 
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(db 
pe 
D) 
ta 
1 
e 
& 


. 4 Ed , 
“No Keino Unido há duas vezes zais maquinas 


e ura e meia relativamente ao Japão”, 


cerca de metade dos Corputadores Pessoais provem da Sinclair, O que tem mii- 
to à ver com o facto de o preço vir a descer progressivamente - Por exerplo, 
o Z:ºl desceu de 70 £ para SO £ no início de Agosto. 

A Sinclair estima em 30 000 o número de ZX81 vendidos mensalmente. “Ten 


maior saída açora do que hê um ano, quando havia muito menos concorrencia”. 


Os números: o 
SINCLAIR Zx81 220 C00 
OCM DDCRE VIS=20 100 OCO 
SINCLAIR SPECTRUM | 75 OO 
S20 COMPUTER 40 000 
DRAGON 32 25 OCC 

I 99/44 20 OCT 
ATARI 400 12 000 
VIDEO GENIZ 10 OCO 

OLCUR CEKIE j 2 000 

UT2OS es 
TOTAL 80º 000 


Ainda na mesma notícia, levantam-se no final as questões; 
Será que a indústria do Keino Unido e as suas cadeias de distribuição 
vão ter capacidade de cobrir o volume necessário? Que "quantidade de 


mercado” irá perder com a concorrencia dos E. U. A. e do Japão? 











